-- card: 3712 from stack: in -- bmap block id: 4710 -- flags: 0000 -- background id: 2731 -- name: -- part 1 (button) -- low flags: 00 -- high flags: 8002 -- rect: left=451 top=315 right=336 bottom=497 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Start ----- HyperTalk script ----- on hit ship global score,posMod,shotLevel,alive beep put 0 into item ship of alive add 1 to score put score into word 2 of line 1 of card field 2 if score is 7 then put true in done if ship mod 2 is 0 then put 64 into yhit put empty into line 3 of card field 1 else put 46 into yhit put empty into line 2 of card field 1 end if set dragspeed to 30 choose oval tool set the pattern to 1 put (posMod + ship) * 30 into xhit drag from xhit+3,yhit to xhit+23,yhit+10 with optionKey doMenu "Select" doMenu "Clear Picture" subtract 15 from xhit set dragspeed to 0 choose eraser tool drag from xhit,yhit+1 to xhit+40,yhit+1 if shotLevel < 3 then put 0 into shotLevel end if doMenu "Select All" doMenu "Select" end hit on mouseUp put card field "passes" into count put card field "speed" into speed visual effect dissolve fast go next global posMod put 0 into posMod put 30 into side put 64 into hight put 1 into direction global shotLevel put 0 into shotLevel global score put 0 into score put score into word 2 of card field 2 put 10 into Ammo put Ammo into word 2 of line 2 of card field 2 put false into done global alive put 1 into item 1 of alive put 1 into item 2 of alive put 1 into item 3 of alive put 1 into item 4 of alive put 1 into item 5 of alive put 1 into item 6 of alive put 1 into item 7 of alive doMenu "Select All" doMenu "Select" set dragSpeed to speed repeat until done repeat until the mouseClick or done if (Ammo =0) and (shotLevel is 1) then put true into done end if get the length of card field 3 if (the mouseH > 300) and (it < 100) then put " " before card field 3 else if (the mouseH < 200) and (it > 5) then put empty into char 1 to 5 of card field 3 end if end if if shotLevel > 0 then if (length of line 3 of card field 1) > 0 then put (length of line 3 of card field 1) div 5 into length1 add 1 to length1 put length1 - posMod into it if (it is 2) or (it is 4) or (it is 6) then if (item it of alive is 1) then hit(it) set dragspeed to speed end if end if end if if (length of line 2 of card field 1) > 0 then put (length of line 2 of card field 1) div 5 into length2 add 1 to length2 put length2 - posMod into it if (it is 1) or (it is 3) or (it is 5) or (it is 7) then if (item it of alive is 1) then hit(it) set dragspeed to speed end if end if end if put empty into line 1 to 2 of card field 1 subtract 1 from shotLevel if (length of line 3 of card field 1) > 0 then put (length of line 3 of card field 1) div 5 into length1 add 1 to length1 put length1 - posMod into it if (it is 2) or (it is 4) or (it is 6) then if (item it of alive is 1) then hit(it) set dragspeed to speed end if end if end if if (length of line 2 of card field 1) > 0 then put (length of line 2 of card field 1) div 5 into length2 add 1 to length2 put length2 - posMod into it if (it is 1) or (it is 3) or (it is 5) or (it is 7) then if (item it of alive is 1) then hit(it) set dragspeed to speed end if end if end if end if -- shot if direction is 1 then drag from side,hight to side+30,hight add 30 to side add 1 to posMod if side > 250 then put 0 into direction end if else drag from side,hight to side-30,hight subtract 30 from side subtract 1 from posMod if side is 30 then put 1 into direction subtract 1 from count end if end if if count = 0 then put true into done end if end repeat if Ammo > 0 then put card field 3 into line 16 of card field 1 put "e" into word 1 of line 16 of card field 1 subtract 1 from Ammo put Ammo into word 2 of line 2 of card field 2 put 16 into shotLevel end if end repeat doMenu "Select All" doMenu "Revert" put "4" into card field 3 put empty into card field 1 choose browse tool visual effect iris open slow go prev end mouseUp -- part 2 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=392 top=105 right=122 bottom=443 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: passes -- part 4 (button) -- low flags: 00 -- high flags: 8002 -- rect: left=18 top=315 right=336 bottom=64 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Quit ----- HyperTalk script ----- on mouseUp doMenu "Quit HyperCard" end mouseUp -- part 5 (button) -- low flags: 00 -- high flags: 8002 -- rect: left=77 top=315 right=336 bottom=187 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Open Stack... ----- HyperTalk script ----- on mouseUp doMenu "Open Stack..." end mouseUp -- part 6 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=180 top=105 right=122 bottom=231 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: speed -- part contents for card part 2 ----- text ----- 3 -- part contents for card part 6 ----- text ----- 1